home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PRUS101.ZIP / TESTCONF.PAS < prev    next >
Pascal/Delphi Source File  |  1994-12-16  |  470b  |  24 lines
  1. program testconfig;
  2.  
  3. uses fconfig;
  4.  
  5. var
  6.   Config : PConfig;
  7.   entry : string;
  8.   free : Longint;
  9.  
  10. begin
  11.   free := memavail;
  12.   Config := LoadConfig('aha.cfg');
  13.   entry := 'Adress';
  14.   readEntry(entry, config, CFirst);
  15.   writeln(entry);
  16.   Entry := 'Adress';
  17.   readEntry(entry, config, CNext);
  18.   writeln(Entry);
  19.   entry := 'dummy';
  20.   readEntry(entry, config, CFirst);
  21.   writeln(entry);
  22.   DisposeConfig(config);
  23.   if free <> memavail then runerror;
  24. end.